﻿Module Module1
  Sub Main()

    Dim NL As String = Environment.NewLine
    Dim messaggio As String = ""
    Dim dir As String
    For Each dir In
          My.Computer.FileSystem.GetDirectories("c:\")
      messaggio &= dir.ToString & NL
    Next
    Console.WriteLine(messaggio)
    Console.ReadLine()

  End Sub
End Module
